﻿Namespace Objetos

    Public Class Data

        Public Shared Function RetornaMesExtenso(ByVal Mes As Integer) As String
            Dim MesExtenso() As String = {"Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro"}
            Return MesExtenso(Mes - 1)
        End Function

    End Class

End Namespace